home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_B.d64 / random draw (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  689b  |  22 lines
  1. 0 background=1
  2. 5 poke55,255:poke56,31
  3. 6 dim p(7):for i=0to7:p(i)=2^(7-i):next
  4. 10 v=53248:poke v+32,0:pokev+33,0
  5. 30 poke v+24,peek(v+24)or8
  6. 40 poke v+17,peek(v+17)or32
  7. 50 for i=1024 to 2024:poke i,ba:next
  8. 60 for i=8192 to 8192+8*1024:pokei,0:next
  9. 100 x=79:y=49:dx=int(rnd(1)*3-1):dy=int(rnd(1)*3-1):if dx=0and dy=0 then 100
  10. 105 y1=y:x1=x:gosub1000:x1=319-x:gosub1000:y1=199-y:gosub1000:x1=x:gosub1000
  11. 107 y1=y*2:x1=x*2:gosub 1000:y1=199-y1:x1=319-x1:gosub 1000
  12. 110 x=x+dx:y=y+dy:ifx<0orx>159thendx=-dx:goto110
  13. 115 ify<0ory>99thendy=-dy:goto110
  14. 120 ifrnd(1)>.9thendx=int(rnd(1)*3-1)
  15. 130 ifrnd(1)>.9thendy=int(rnd(1)*3-1)
  16. 135 ifdx<>0ordy<>0then105
  17. 140 dx=int(rnd(1)*3-1):dy=int(rnd(1)*3-1):ifdx=0anddy=0then140
  18. 145 goto105
  19. 1000 ya=int(y1/8):yb=y1-ya*8:xa=int(x1/8):xb=x1-xa*8
  20. 1005 p=8*1024+ya*320+xa*8+yb:xc=p(xb)
  21. 1010 pokep,peek(p)orxc:return
  22.